home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / misc / TSBVector.lha / Sources / vektorlines(forRSI).S < prev    next >
Text File  |  1995-06-13  |  1KB  |  47 lines
  1. ;-----------------------------------------------------------------------
  2. ; Beispiel eines Vektorobjekt-Sourcecodes for including an 
  3. ; object made with THE SPECIAL BROTHERS Vectordesigner ..
  4. ;-----------------------------------------------------------------------
  5. ; Normales Linienobjekt 
  6. ;-----------------------------------------------------------------------
  7. ;(Seka-format)
  8. ;Benutzung:
  9. ;a (return)
  10. ;ri (return)
  11. ;name.r (return)
  12. ;polylist (return)
  13. ;return
  14. ;wi (return)
  15. ;name (return)
  16. ;start (return)
  17. ;end (return)
  18. ;Danach kann das Objekt vom Demomaker aus unter "name" eingeladen werden.
  19. ;------------------------------------------------------------------------
  20.  
  21. start:
  22. dc.l    "VECT"    ;Kennung fuer Objekt!!!
  23.  
  24. filledob5:
  25. dc.l polylist-filledob5        ;offset zu Punktstruktur
  26. dc.l verbindung-filledob5    ;offset zu Verbindungsstruktur
  27. dc.w 400            ;zoom = 400
  28.                 ;when you designed it to BIG try
  29.                     ;a BIGGER zoom
  30. dc.w 0,$fff,0,0,0,0,0,0        ;8 Farben    (2.Farbe is Objektfarbe)
  31. dc.b 0    ;kein sync
  32. dc.b 2    ;2-Linienobjekt
  33. dc.w 0    ;hier keine Funktion
  34. dc.l 0    ;keine Zusatzroutinen
  35. dc.l 0    ;...
  36.  
  37. polylist:    ;Punktstruktur
  38.  
  39. blk.b 1024,0    
  40.  
  41. verbindung:    ;Verbindungstruktur
  42.  
  43. blk.b 2048,0
  44.  
  45. end:
  46.  
  47.